home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / mus / play / SongPlayer.lha / songplayer / SongPlayer-Install < prev    next >
Encoding:
Text File  |  1997-08-29  |  3.3 KB  |  147 lines
  1. ;------------------------------------------------------------------------------
  2. ;
  3. ;   File    :   SongPlayer-Install
  4. ;
  5. ;   Author  :   Stéphane TAVENARD
  6. ;
  7. ;   (C) Copyright 1996-1997 Stéphane TAVENARD
  8. ;       All Rights Reserved
  9. ;
  10. ;   #Rev|   Date   |                      Comment
  11. ;   ----|----------|--------------------------------------------------------
  12. ;   0   |05/01/1997| Initial revision                                     ST
  13. ;   1   |24/08/1997| Generic CPU version / no more SONGPLAYER: assign     ST
  14. ;
  15. ;   ------------------------------------------------------------------------
  16. ;
  17. ;   SongPlayer Intall script
  18. ;
  19. ;------------------------------------------------------------------------------
  20.  
  21. (complete 0)
  22.  
  23. ; Français
  24. ;------------------------------------------------------------------------------
  25. (if (= @language "français")
  26. (
  27.  
  28. (set #guide "SongPlayer.fr.Guide" )
  29.  
  30. (set #destdir
  31.    (cat "Choisisez un repertoire de destination pour SongPlayer.\n"
  32.         "Un Tiroir nommé 'SongPlayer' y sera créé."
  33.     )
  34. )
  35.  
  36. (set #copying "Copie des fichiers en cours.")
  37.  
  38. )
  39.  
  40. ; Language is english by default
  41. ;------------------------------------------------------------------------------
  42. (
  43.  
  44. (set #guide "SongPlayer.en.Guide" )
  45.  
  46. (set #destdir
  47.    (cat "Please select a place for SongPlayer.\n"
  48.         "A drawer called 'SongPlayer' will be created.")
  49.    )
  50. )
  51.  
  52. (set #copying "Files copy in progress.")
  53.  
  54. )
  55.  
  56.  
  57. ; Search for old SONGPLAYER directory
  58. ;------------------------------------------------------------------------------
  59. (complete 10)
  60.  
  61. (if (<> (exists "SONGPLAYER:" (noreq)) 0)
  62. (
  63.    (set @default-dest (expandpath "SONGPLAYER:/"))
  64.    (set songplayerdir (tackon @default-dest "SongPlayer"))
  65. ))
  66.  
  67. ; Ask for destination directory
  68. ;------------------------------------------------------------------------------
  69. (complete 20)
  70.  
  71. (set @default-dest
  72.    (askdir
  73.       (prompt #destdir)
  74.       (help @askdir-help)
  75.       (default @default-dest)
  76.    )
  77. )
  78.  
  79. (set @default-dest (expandpath @default-dest))
  80. (set destination (tackon @default-dest "SongPlayer"))
  81.  
  82. ; Create dir if doesn't exist
  83. ;------------------------------------------------------------------------------
  84. (complete 30)
  85.  
  86. (if (= (exists destination) 0 )
  87. (
  88.    (makedir destination (help @makedir-help))
  89. ))
  90.  
  91.  
  92. ; Copy Main files now
  93. ;------------------------------------------------------------------------------
  94. (complete 40)
  95.  
  96. (copyfiles
  97.    (prompt #copying)
  98.    (source "")
  99.    (files)
  100.    (choices "SongPlayer")
  101.    (dest destination)
  102.    (infos)
  103.    (noposition)
  104.    (help @copyfiles-help)
  105. )
  106.  
  107. ; Copy Help file now
  108. ;------------------------------------------------------------------------------
  109. (complete 50)
  110. (copyfiles
  111.    (prompt #copying)
  112.    (source #guide)
  113.    (dest destination)
  114.    (newname "SongPlayer.Guide")
  115.    (infos)
  116. )
  117.  
  118. ; Copy Images files now
  119. ;------------------------------------------------------------------------------
  120. (complete 60)
  121.  
  122. (copyfiles
  123.    (prompt #copying)
  124.    (source "")
  125.    (pattern "Images")
  126.    (dest destination)
  127.    (infos)
  128.    (help @copyfiles-help)
  129. )
  130.  
  131. ; Copy Utilities files now
  132. ;------------------------------------------------------------------------------
  133. (complete 80)
  134.  
  135. (copyfiles
  136.    (prompt #copying)
  137.    (source "")
  138.    (pattern "Utils")
  139.    (dest destination)
  140.    (infos)
  141.    (help @copyfiles-help)
  142. )
  143.  
  144. ; End
  145. ;------------------------------------------------------------------------------
  146. (complete 100)
  147.